home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / text / edit / BareED.lha / BareED / rexx / RemCompLabels.rx < prev    next >
Text File  |  2000-02-12  |  979b  |  51 lines
  1. /* ... to remove unwanted Compiler generated labels when using HUNK_DEBUG. Output of file created through the use of DropHunk */
  2.  
  3. BAREED_HOST = GetClip('BAREED')
  4.  
  5. IF BAREED_HOST = '' THEN DO
  6.     CALL SetClip('BAREED')    /* Remove from ClipNode */
  7.     EXIT 5
  8.     END
  9.  
  10. ADDRESS VALUE BAREED_HOST
  11.  
  12. CALL SetClip('BAREED')        /* Remove from ClipNode */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. /* ---------------------- MAIN --------------------- */
  17.  
  18. set tab size 8
  19. set font "courier.font,13"
  20.  
  21. move cursor archivestart
  22. set find string "      L"    /* Two blanks, one tab, the capital L */
  23. set findmode
  24.  
  25. reps = 0
  26.  
  27. do while RC = 0
  28.     find next string
  29.     if RC ~= 0 then
  30.         break
  31.     delete current line
  32.     move cursor linestart
  33.     reps = reps + 1
  34. end
  35.  
  36. tell "Found" reps "occurrences to remove!"
  37.  
  38. move cursor archivestart
  39. set find string "related"    /* Search now for this string */
  40.  
  41. do while RC = 0
  42.     find next string
  43.     if RC ~= 0 then
  44.         break
  45.     get current column
  46.     xpos = result
  47.     if xpos < 57 then    /* Lower column 57 ? */
  48.         put char '09'x
  49.     
  50. end
  51.